home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok31 / environment / dossupport.mod < prev    next >
Text File  |  1993-11-04  |  647b  |  42 lines
  1. IMPLEMENTATION MODULE DosSupport;
  2.  
  3. FROM SYSTEM    IMPORT ADR;
  4. FROM Dos        IMPORT Open, Close, CurrentDir, Lock, UnLock,
  5.                FileLockPtr, sharedLock, newFile;
  6.  
  7.  
  8. VAR L : FileLockPtr;
  9.  
  10.  
  11. PROCEDURE OpenCon (win : WinNam) : ID;
  12. BEGIN
  13.  RETURN Open (ADR(win), newFile);
  14. END OpenCon;
  15.  
  16. PROCEDURE CloseCon (k : ID);
  17. BEGIN
  18.  IF k # NIL THEN
  19.   L := CurrentDir (L);
  20.   Close (k)
  21.  END
  22. END CloseCon;
  23.  
  24. PROCEDURE CD (Dir : ARRAY OF CHAR) : BOOLEAN;
  25. VAR l : FileLockPtr;
  26. BEGIN
  27.  l := Lock (ADR(Dir), sharedLock);
  28.  IF l # NIL THEN
  29.   l := CurrentDir (l);
  30.   UnLock (l);
  31.   RETURN TRUE
  32.  END;
  33.  RETURN FALSE
  34. END CD;
  35.  
  36.  
  37. BEGIN
  38.  
  39.  L := Lock (0, sharedLock);
  40.  
  41. END DosSupport.Mod
  42.